home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / eos / sun-eos-toolbar.el.z / sun-eos-toolbar.el
Encoding:
Text File  |  1998-05-21  |  33.9 KB  |  1,111 lines
  1. ;;; sun-eos-toolbar.el --- Implements the EOS toolbar interface
  2.  
  3. ;; Copyright (C) Sun Microsystems, Inc.
  4.  
  5. ;; Maintainer:    Eduardo Pelegri-Llopart <eduardo.pelegri-llopart@Eng.Sun.COM>
  6. ;; Author:      Eduardo Pelegri-Llopart <eduardo.pelegri-llopart@Eng.Sun.COM>
  7.  
  8. ;; Keywords:    SPARCworks EOS Era on SPARCworks toolbar
  9.  
  10. ;;; Commentary:
  11.  
  12. ;; Please send feedback to eduardo.pelegri-llopart@eng.sun.com
  13.  
  14. ;;; Code:
  15.  
  16. (defvar eos::toolbar-icon-directory
  17.   (locate-data-directory "eos"))
  18.  
  19. (defvar eos::toolbar-run-icon
  20.   (if (featurep 'xpm)
  21.       (toolbar-make-button-list
  22.        "/* XPM */
  23. static char * file[] = {
  24. \"28 28 5 1\",
  25. \"     c #C8C8C8C8C8C8 s backgroundToolBarColor\",
  26. \".    s FgColor c #000000000000\",
  27. \"X    c #0000FFFF0000\",
  28. \"+    c #000077770000\",
  29. \"@    c #000044440000\",
  30. \"                            \",
  31. \"                            \",
  32. \"                            \",
  33. \"                            \",
  34. \"                            \",
  35. \"                            \",
  36. \"                            \",
  37. \"                 .......    \",
  38. \"                            \",
  39. \"     .....                  \",
  40. \"     .X+@.       .......    \",
  41. \"     .X+@.                  \",
  42. \"  ......@....               \",
  43. \"   .XXX++++.     .......    \",
  44. \"    .XX++@.                 \",
  45. \"     .@+@.                  \",
  46. \"      .@.        .......    \",
  47. \"       .                    \",
  48. \"                            \",
  49. \"                 .......    \",
  50. \"                            \",
  51. \"                            \",
  52. \"                 .......    \",
  53. \"                            \",
  54. \"                            \",
  55. \"                            \",
  56. \"                            \",
  57. \"                            \"};")
  58.     (toolbar-make-button-list
  59.      (expand-file-name "eos-run.xbm" eos::toolbar-icon-directory)))
  60.   "A Run icon pair.")
  61.  
  62. (defvar eos::toolbar-type-icon
  63.   (if (featurep 'xpm)
  64.       (toolbar-make-button-list
  65.        "/* XPM */
  66. static char * file[] = {
  67. \"28 28 2 1\",
  68. \"     c #C8C8C8C8C8C8 s backgroundToolBarColor\",
  69. \"X    c #000000000000\",
  70. \"                            \",
  71. \"                            \",
  72. \"                            \",
  73. \"                            \",
  74. \"                            \",
  75. \"                            \",
  76. \"                            \",
  77. \"                            \",
  78. \"                            \",
  79. \"                            \",
  80. \"     XX XX                  \",
  81. \"     XX XX                  \",
  82. \"   XXXX XXXX  XX XX         \",
  83. \"  XX XX XX XX XX XX  XXX  X \",
  84. \"  XX XX XX XX  XXX   X X X  \",
  85. \"  XX XX XX XX   X    XXXX   \",
  86. \"  XX XX XX XX  XXX     XXXX \",
  87. \"  XX XX XX XX XX XX   X X X \",
  88. \"   XXX   XXX  XX XX  X  XXX \",
  89. \"                            \",
  90. \"                            \",
  91. \"                            \",
  92. \"                            \",
  93. \"                            \",
  94. \"                            \",
  95. \"                            \",
  96. \"                            \",
  97. \"                            \"};")
  98.     (toolbar-make-button-list
  99.      (expand-file-name "eos-type.xbm" eos::toolbar-icon-directory)))
  100.   "A Type-at icon pair.")
  101.  
  102.  
  103. (defvar eos::toolbar-stop-at-icon
  104.   (if (featurep 'xpm)
  105.       (toolbar-make-button-list
  106.        "/* XPM */
  107. static char * file[] = {
  108. \"28 28 5 1\",
  109. \"     c #C8C8C8C8C8C8 s backgroundToolBarColor\",
  110. \".    c #4B4B4B4B4B4B\",
  111. \"X    c #FFFFFFFFFFFF\",
  112. \"o    c #AFAFAFAFAFAF\",
  113. \"O    c #FFFF00000000\",
  114. \"                            \",
  115. \"                            \",
  116. \"                            \",
  117. \"                            \",
  118. \"          ........          \",
  119. \"         .XXXXXXXX.         \",
  120. \"        .XoOOOOOOoX.        \",
  121. \"       .XoOOOOOOOOoX.       \",
  122. \"      .XoOOOOOOOOOOoX.      \",
  123. \"     .XoOOOOOOOOOOOOoX.     \",
  124. \"    .XoOOOOOOOOXOOOOOoX.    \",
  125. \"    .XOOOOOOOOOXXOOOOOX.    \",
  126. \"    .XOOOOXXXXXXXXOOOOX.    \",
  127. \"    .XOOOOXXXXXXXXXOOOX.    \",
  128. \"    .XOOOOXXXXXXXXOOOOX.    \",
  129. \"    .XOOOOOOOOOXXOOOOOX.    \",
  130. \"    .XOOOOOOOOOXOOOOOOX.    \",
  131. \"    .XoOOOOOOOOOOOOOOoX.    \",
  132. \"     .XoOOOOOOOOOOOOOX.     \",
  133. \"      .XoOOOOOOOOOOoX.      \",
  134. \"       .XoOOOOOOOOoX.       \",
  135. \"        .XoOOOOOOoX.        \",
  136. \"         .XXXXXXXX.         \",
  137. \"          ........          \",
  138. \"                            \",
  139. \"                            \",
  140. \"                            \",
  141. \"                            \"};")
  142.     (toolbar-make-button-list
  143.      (expand-file-name "eos-stop.xbm" eos::toolbar-icon-directory)))
  144.   "A Stop At icon pair.")
  145.  
  146. (defvar eos::toolbar-clear-at-icon
  147.   (if (featurep 'xpm)
  148.       (toolbar-make-button-list
  149.        "/* XPM */
  150. static char * file[] = {
  151. \"28 28 5 1\",
  152. \"     c #C8C8C8C8C8C8 s backgroundToolBarColor\",
  153. \".    c #4B4B4B4B4B4B\",
  154. \"X    c #FFFFFFFFFFFF\",
  155. \"o    c #AFAFAFAFAFAF\",
  156. \"O    c #FFFF00000000\",
  157. \"                            \",
  158. \"                            \",
  159. \"                            \",
  160. \"                            \",
  161. \"          ........          \",
  162. \"         .XXXXXXXX.         \",
  163. \"        .XoOOOOOOoX.        \",
  164. \"       .XoOOOOOOOOoX.       \",
  165. \"      .XoOOOOOOOOOOoX.      \",
  166. \"     .XoOOOOOOOOOOOOoX.     \",
  167. \"    .XoOOOXXOOOOXXOOOoX.    \",
  168. \"    .XOOOOOXXOOXXOOOOOX.    \",
  169. \"    .XOOOOOOXXXXOOOOOOX.    \",
  170. \"    .XOOOOOOOXXOOOOOOOX.    \",
  171. \"    .XOOOOOOXXXXOOOOOOX.    \",
  172. \"    .XOOOOOXXOOXXOOOOOX.    \",
  173. \"    .XOOOOXXOOOOXXOOOOX.    \",
  174. \"    .XoOOOXOOOOOOXOOOoX.    \",
  175. \"     .XoOOOOOOOOOOOOoX.     \",
  176. \"      .XoOOOOOOOOOOoX.      \",
  177. \"       .XoOOOOOOOOoX.       \",
  178. \"        .XoOOOOOOoX.        \",
  179. \"         .XXXXXXXX.         \",
  180. \"          ........          \",
  181. \"                            \",
  182. \"                            \",
  183. \"                            \",
  184. \"                            \"};")
  185.     (toolbar-make-button-list
  186.      (expand-file-name "eos-clear-at.xbm" eos::toolbar-icon-directory)))
  187.   "A Clear At icon pair.")
  188.  
  189. (defvar eos::toolbar-stop-in-icon
  190.   (if (featurep 'xpm)
  191.       (toolbar-make-button-list
  192.        "/* XPM */
  193. static char * file[] = {
  194. \"28 28 5 1\",
  195. \"     c #C8C8C8C8C8C8 s backgroundToolBarColor\",
  196. \".    c #4B4B4B4B4B4B\",
  197. \"X    c #FFFFFFFFFFFF\",
  198. \"o    c #AFAFAFAFAFAF\",
  199. \"O    c #FFFF00000000\",
  200. \"                            \",
  201. \"                            \",
  202. \"                            \",
  203. \"                            \",
  204. \"          ........          \",
  205. \"         .XXXXXXXX.         \",
  206. \"        .XoOOOOOOoX.        \",
  207. \"       .XoOOOOOOOOoX.       \",
  208. \"      .XoOOOOOOOOOOoX.      \",
  209. \"     .XoOOOOOOOOOOOOoX.     \",
  210. \"    .XoOOOOOOOOOXOXOOoX.    \",
  211. \"    .XOOOXXXXOOXOOOXOOX.    \",
  212. \"    .XOOOXOOOOOXOOOXOOX.    \",
  213. \"    .XOOOXOOOOOXOOOXOOX.    \",
  214. \"    .XOOOXXXOOXOOOOOXOX.    \",
  215. \"    .XOOOXOOOOOXOOOXOOX.    \",
  216. \"    .XOOOXOOOOOXOOOXOOX.    \",
  217. \"    .XoOOXOOOOOXOOOXOoX.    \",
  218. \"     .XoOOOOOOOOXOXOoX.     \",
  219. \"      .XoOOOOOOOOOOoX.      \",
  220. \"       .XoOOOOOOOOoX.       \",
  221. \"        .XoOOOOOOoX.        \",
  222. \"         .XXXXXXXX.         \",
  223. \"          ........          \",
  224. \"                            \",
  225. \"                            \",
  226. \"                            \",
  227. \"                            \"};")
  228.     (toolbar-make-button-list
  229.      (expand-file-name "eos-stop-in.xbm" eos::toolbar-icon-directory)))
  230.     "A Stop in icon pair.")
  231.  
  232. (defvar eos::toolbar-step-into-icon
  233.   (if (featurep 'xpm)
  234.       (toolbar-make-button-list
  235.        "/* XPM */
  236. static char * file[] = {
  237. \"28 28 5 1\",
  238. \"     c #C8C8C8C8C8C8 s backgroundToolBarColor\",
  239. \".    c #000000000000\",
  240. \"O    c #0000FFFF0000\",
  241. \"+    c #000077770000\",
  242. \"@    c #000044440000\",
  243. \"                            \",
  244. \"                            \",
  245. \"                            \",
  246. \"                            \",
  247. \"                            \",
  248. \"                            \",
  249. \"      .....   .......       \",
  250. \"     .OOOO.                 \",
  251. \"    .O++++.                 \",
  252. \"    .O+....   ........      \",
  253. \"    .O+.                    \",
  254. \"    .O+. .                  \",
  255. \"    .O+. ..                 \",
  256. \"    .O+. .O.                \",
  257. \"    .O+...O@.    .......    \",
  258. \"    .O++OOO+@.              \",
  259. \"    .O+++++++@.             \",
  260. \"     .++++++@.   .......    \",
  261. \"      ....O@.               \",
  262. \"         .O.                \",
  263. \"         ..      .......    \",
  264. \"         .                  \",
  265. \"                            \",
  266. \"                            \",
  267. \"                            \",
  268. \"                            \",
  269. \"                            \",
  270. \"                            \"};")
  271.     (toolbar-make-button-list
  272.      (expand-file-name "eos-step-into.xbm" eos::toolbar-icon-directory)))
  273.   "A Step Into icon pair.")
  274.  
  275. (defvar eos::toolbar-step-up-icon
  276.   (if (featurep 'xpm)
  277.       (toolbar-make-button-list
  278.        "/* XPM */
  279. static char * file[] = {
  280. \"28 28 5 1\",
  281. \"     c #C8C8C8C8C8C8 s backgroundToolBarColor\",
  282. \".    c #000000000000\",
  283. \"O    c #0000FFFF0000\",
  284. \"+    c #000077770000\",
  285. \"@    c #000044440000\",
  286. \"                            \",
  287. \"                            \",
  288. \"                            \",
  289. \"                            \",
  290. \"                            \",
  291. \"                            \",
  292. \"         .                  \",
  293. \"         ..      .......    \",
  294. \"         .O.                \",
  295. \"      ....O@.               \",
  296. \"     .++++++@.   .......    \",
  297. \"    .O+++++++@.             \",
  298. \"    .O++OOO+@.              \",
  299. \"    .O+...O@.    .......    \",
  300. \"    .O+. .O.                \",
  301. \"    .O+. ..                 \",
  302. \"    .O+. .                  \",
  303. \"    .O+.                    \",
  304. \"    .O+....   ........      \",
  305. \"    .O++++.                 \",
  306. \"     .OOOO.                 \",
  307. \"      .....   .......       \",
  308. \"                            \",
  309. \"                            \",
  310. \"                            \",
  311. \"                            \",
  312. \"                            \",
  313. \"                            \"};")
  314.     (toolbar-make-button-list
  315.      (expand-file-name "eos-step-up.xbm" eos::toolbar-icon-directory)))
  316.   "A Step up icon pair.")
  317.  
  318. (defvar eos::toolbar-step-over-icon
  319.   (if (featurep 'xpm)
  320.       (toolbar-make-button-list
  321.        "/* XPM */
  322. static char * file[] = {
  323. \"28 28 5 1\",
  324. \"     c #C8C8C8C8C8C8 s backgroundToolBarColor\",
  325. \".    c #000000000000\",
  326. \"X    c #0000FFFF0000\",
  327. \"+    c #000077770000\",
  328. \"@    c #000044440000\",
  329. \"                            \",
  330. \"                            \",
  331. \"                            \",
  332. \"                            \",
  333. \"                            \",
  334. \"                            \",
  335. \"      .....                 \",
  336. \"     .XXXX.      .......    \",
  337. \"    .X++++.                 \",
  338. \"    .X+....                 \",
  339. \"    .X+.         .......    \",
  340. \"    .X+. .                  \",
  341. \"    .X+. ..                 \",
  342. \"    .X+. .X.     .......    \",
  343. \"    .X+...X@.               \",
  344. \"    .X++XXX+@.              \",
  345. \"    .X+++++++@.  .......    \",
  346. \"     .++++++@.              \",
  347. \"      ....X@.               \",
  348. \"         .X.     .......    \",
  349. \"         ..                 \",
  350. \"         .                  \",
  351. \"                 .......    \",
  352. \"                            \",
  353. \"                            \",
  354. \"                            \",
  355. \"                            \",
  356. \"                            \"};")
  357.     (toolbar-make-button-list
  358.      (expand-file-name "eos-step-over.xbm" eos::toolbar-icon-directory)))
  359.   "A Step Over icon pair.")
  360.  
  361. (defvar eos::toolbar-evaluate-icon
  362.   (if (featurep 'xpm)
  363.       (toolbar-make-button-list
  364.        "/* XPM */
  365. static char * file[] = {
  366. \"28 28 2 1\",
  367. \"     c #C8C8C8C8C8C8 s backgroundToolBarColor\",
  368. \".    c #000000000000\",
  369. \"                            \",
  370. \"                            \",
  371. \"                            \",
  372. \"                            \",
  373. \"                            \",
  374. \"                            \",
  375. \"                            \",
  376. \"                            \",
  377. \"                            \",
  378. \"                            \",
  379. \"                            \",
  380. \"         ....               \",
  381. \"         .. ..  ......      \",
  382. \"         .. ..  ......      \",
  383. \"         .. ..              \",
  384. \"         .. ..  ......      \",
  385. \"         .. ..  ......      \",
  386. \"         ....               \",
  387. \"         ..                 \",
  388. \"         ..                 \",
  389. \"                            \",
  390. \"                            \",
  391. \"                            \",
  392. \"                            \",
  393. \"                            \",
  394. \"                            \",
  395. \"                            \",
  396. \"                            \"};")
  397.     (toolbar-make-button-list
  398.      (expand-file-name "eos-evaluate.xbm" eos::toolbar-icon-directory)))
  399.   "A Evaluate icon pair.")
  400.  
  401. (defvar eos::toolbar-evaluate-star-icon
  402.   (if (featurep 'xpm)
  403.       (toolbar-make-button-list
  404.        "/* XPM */
  405. static char * file[] = {
  406. \"28 28 2 1\",
  407. \"     c #C8C8C8C8C8C8 s backgroundToolBarColor\",
  408. \"X    c #000000000000\",
  409. \"                            \",
  410. \"                            \",
  411. \"                            \",
  412. \"                            \",
  413. \"                            \",
  414. \"                            \",
  415. \"                            \",
  416. \"                            \",
  417. \"                            \",
  418. \"     XX XX                  \",
  419. \"      XXX                   \",
  420. \"    XXXXXXX                 \",
  421. \"      XXX   XXXX            \",
  422. \"     XX XX  XX XX XXXXXX    \",
  423. \"            XX XX XXXXXX    \",
  424. \"            XX XX           \",
  425. \"            XX XX XXXXXX    \",
  426. \"            XX XX XXXXXX    \",
  427. \"            XXXX            \",
  428. \"            XX              \",
  429. \"            XX              \",
  430. \"                            \",
  431. \"                            \",
  432. \"                            \",
  433. \"                            \",
  434. \"                            \",
  435. \"                            \",
  436. \"                            \"};")
  437.     (toolbar-make-button-list
  438.      (expand-file-name "eos-evaluate-star.xbm" eos::toolbar-icon-directory)))
  439.   "A Evaluate Star icon pair.")
  440.  
  441. (defvar eos::toolbar-fix-icon
  442.   (if (featurep 'xpm)
  443.       (toolbar-make-button-list
  444.        "/* XPM */
  445. static char * file[] = {
  446. \"28 28 8 1\",
  447. \"     c #C8C8C8C8C8C8 s backgroundToolBarColor\",
  448. \".    c #7D7D7D7D7D7D\",
  449. \"X    c #000000000000\",
  450. \"o    c #FFFFFFFF0000\",
  451. \"O    c #FFFF99990000\",
  452. \"+    c #FFFFCCCC3333\",
  453. \"@    c #CCCC9999FFFF\",
  454. \"#    c #99996666CCCC\",
  455. \"                            \",
  456. \"                            \",
  457. \"                            \",
  458. \"                            \",
  459. \"         .XX.               \",
  460. \"         XoOXX.             \",
  461. \"        .Xo+OOXXX.          \",
  462. \"        Xo++++OOOXXX        \",
  463. \"       .Xo+++++++OOOX.      \",
  464. \"       Xo++++++OOOXX.       \",
  465. \"      .Xo++++OOXXX.         \",
  466. \"      Xo++OOOXX.            \",
  467. \"     .XoOOOXXXXXXXXXXXX     \",
  468. \"     XoOXXX@@@@@@@@@@@X     \",
  469. \"     XXX##############X     \",
  470. \"      X@##############X     \",
  471. \"      XXXXXXXXXXXXXXXXX     \",
  472. \"      X@@@@X     X@@@@X     \",
  473. \"      X@###X     X@###X     \",
  474. \"      X@###X     X@###X     \",
  475. \"      X@###X     X@###X     \",
  476. \"      X@###X     X@###X     \",
  477. \"      XXXXXX     XXXXXX     \",
  478. \"                            \",
  479. \"                            \",
  480. \"                            \",
  481. \"                            \",
  482. \"                            \"};")
  483.     (toolbar-make-button-list
  484.      (expand-file-name "eos-fix.xbm" eos::toolbar-icon-directory)))
  485.   "A Fix icon pair.")
  486.  
  487. (defvar eos::toolbar-run2-icon
  488.   (if (featurep 'xpm)
  489.       (toolbar-make-button-list
  490.        "/* XPM */
  491. static char * file[] = {
  492. \"28 28 5 1\",
  493. \"     c #C8C8C8C8C8C8 s backgroundToolBarColor\",
  494. \".    s FgColor c #000000000000\",
  495. \"X    c #0000FFFF0000\",
  496. \"o    c #000077770000\",
  497. \"O    c #000044440000\",
  498. \"                            \",
  499. \"                            \",
  500. \"                            \",
  501. \"                            \",
  502. \"                            \",
  503. \"                            \",
  504. \"                            \",
  505. \"                            \",
  506. \"                .           \",
  507. \"                ..          \",
  508. \"                .X.         \",
  509. \"     ............XX.        \",
  510. \"     .XXXXXXXXXXXXoX.       \",
  511. \"     .XoooooooooooooX.      \",
  512. \"     .Xooooooooooooooo.     \",
  513. \"     .XoooooooooooooO.      \",
  514. \"     .oOOOOOOOOOOOoO.       \",
  515. \"     ............OO.        \",
  516. \"                .O.         \",
  517. \"                ..          \",
  518. \"                .           \",
  519. \"                            \",
  520. \"                            \",
  521. \"                            \",
  522. \"                            \",
  523. \"                            \",
  524. \"                            \",
  525. \"                            \"};")
  526.     (toolbar-make-button-list
  527.      (expand-file-name "eos-run2.xbm" eos::toolbar-icon-directory)))
  528.   "A Run icon pair.")
  529.  
  530. (defvar eos::toolbar-cont-icon
  531.   (if (featurep 'xpm)
  532.       (toolbar-make-button-list
  533.        "/* XPM */
  534. static char * file[] = {
  535. \"28 28 6 1\",
  536. \"     c #C8C8C8C8C8C8 s backgroundToolBarColor\",
  537. \".    c #000000000000\",
  538. \"O    c #0000FFFF0000\",
  539. \"+    c #000077770000\",
  540. \"@    c #000044440000\",
  541. \"o    c #FFFF00000000\",
  542. \"                            \",
  543. \"                            \",
  544. \"                            \",
  545. \"                            \",
  546. \"                            \",
  547. \"                            \",
  548. \"      .....   .......       \",
  549. \"     .OOOO.                 \",
  550. \"    .O++++.                 \",
  551. \"    .O+....   ........      \",
  552. \"    .O+.                    \",
  553. \"    .O+. .                  \",
  554. \"    .O+. ..                 \",
  555. \"    .O+. .O.                \",
  556. \"    .O+...O@.     ..        \",
  557. \"    .O++OOO+@.   .oo.       \",
  558. \"    .O+++++++@. .oooo.      \",
  559. \"     .++++++@.  .oooo.      \",
  560. \"      ....O@.    .oo.       \",
  561. \"         .O.      ..        \",
  562. \"         ..                 \",
  563. \"         .                  \",
  564. \"                            \",
  565. \"                            \",
  566. \"                            \",
  567. \"                            \",
  568. \"                            \",
  569. \"                            \"};")
  570.     (toolbar-make-button-list
  571.      (expand-file-name "eos-cont.xbm" eos::toolbar-icon-directory)))
  572.   "A Cont icon pair.")      
  573.               
  574.  
  575. (defvar eos::toolbar-up-icon
  576.   (if (featurep 'xpm)
  577.       (toolbar-make-button-list
  578.        "/* XPM */
  579. static char * file[] = {
  580. \"28 28 8 1\",
  581. \"     c #C8C8C8C8C8C8 s backgroundToolBarColor\",
  582. \".    s FgColor c #000000000000\",
  583. \"X    c #CCCC9999FFFF\",
  584. \"o    c #99996666CCCC\",
  585. \"O    c #FFFFFFFF0000\",
  586. \"+    c #FFFFCCCC3333\",
  587. \"@    c #0000FFFF0000\",
  588. \"#    c #000077770000\",
  589. \"                            \",
  590. \"                            \",
  591. \"                            \",
  592. \"                            \",
  593. \"                  .         \",
  594. \"                 ...        \",
  595. \"      ........  .....       \",
  596. \"      .XXXXXX. .......      \",
  597. \"      .Xooooo.   ...        \",
  598. \"      .Xooooo.   ...        \",
  599. \"      .Xooooo.   ...        \",
  600. \"      .Xooooo.   ...        \",
  601. \"      .O+++++.   ...        \",
  602. \"      .O+++++.   ...        \",
  603. \"      .O+++++.              \",
  604. \"      .O+++++.              \",
  605. \"      .O+++++.              \",
  606. \"      .@#####.              \",
  607. \"      .@#####.              \",
  608. \"      .@#####.              \",
  609. \"      .@#####.              \",
  610. \"      .@#####.              \",
  611. \"      ........              \",
  612. \"                            \",
  613. \"                            \",
  614. \"                            \",
  615. \"                            \",
  616. \"                            \"};")
  617.     (toolbar-make-button-list
  618.      (expand-file-name "eos-up.xbm" eos::toolbar-icon-directory)))
  619.   "A Up icon pair.")
  620.  
  621. (defvar eos::toolbar-down-icon
  622.   (if (featurep 'xpm)
  623.       (toolbar-make-button-list
  624.        "/* XPM */
  625. static char * file[] = {
  626. \"28 28 8 1\",
  627. \"     c #C8C8C8C8C8C8 s backgroundToolBarColor\",
  628. \".    s FgColor c #000000000000\",
  629. \"X    c #CCCC9999FFFF\",
  630. \"o    c #99996666CCCC\",
  631. \"O    c #FFFFFFFF0000\",
  632. \"+    c #FFFFCCCC3333\",
  633. \"@    c #0000FFFF0000\",
  634. \"#    c #000077770000\",
  635. \"                            \",
  636. \"                            \",
  637. \"                            \",
  638. \"                            \",
  639. \"                            \",
  640. \"                            \",
  641. \"      ........              \",
  642. \"      .XXXXXX.              \",
  643. \"      .Xooooo.              \",
  644. \"      .Xooooo.              \",
  645. \"      .Xooooo.              \",
  646. \"      .Xooooo.              \",
  647. \"      .O+++++.    ...       \",
  648. \"      .O+++++.    ...       \",
  649. \"      .O+++++.    ...       \",
  650. \"      .O+++++.    ...       \",
  651. \"      .O+++++.    ...       \",
  652. \"      .@#####.    ...       \",
  653. \"      .@#####.  .......     \",
  654. \"      .@#####.   .....      \",
  655. \"      .@#####.    ...       \",
  656. \"      .@#####.     .        \",
  657. \"      ........              \",
  658. \"                            \",
  659. \"                            \",
  660. \"                            \",
  661. \"                            \",
  662. \"                            \"};")
  663.     (toolbar-make-button-list
  664.      (expand-file-name "eos-down.xbm" eos::toolbar-icon-directory)))
  665.   "A Down icon pair.")
  666.  
  667. (defvar eos::toolbar-build-icon
  668.   (if (featurep 'xpm)
  669.       (toolbar-make-button-list
  670.        "/* XPM */
  671. static char * file[] = {
  672. \"28 28 8 1\",
  673. \"     c #C8C8C8C8C8C8 s backgroundToolBarColor\",
  674. \".    c #000000000000\",
  675. \"X    c #CCCC9999FFFF\",
  676. \"o    c #99996666CCCC\",
  677. \"O    c #FFFFFFFF0000\",
  678. \"+    c #FFFFCCCC3333\",
  679. \"@    c #FFFF99990000\",
  680. \"#    c #FFFF66666666\",
  681. \"                            \",
  682. \"                            \",
  683. \"                            \",
  684. \"                            \",
  685. \"                ......      \",
  686. \"                .XXXX.      \",
  687. \"                .Xooo.      \",
  688. \"                .Xooo.      \",
  689. \"                .Xooo.      \",
  690. \"                .Xooo.      \",
  691. \"           .    .Xooo.      \",
  692. \"          .O.   .Xooo.      \",
  693. \"         .O+@.  .Xooo.      \",
  694. \"        .O+++@. .Xooo.      \",
  695. \"       .O+++++@..Xooo.      \",
  696. \"      .O+++++++@.Xooo.      \",
  697. \"     .O+++..............    \",
  698. \"    .O@@@@.            .    \",
  699. \"    ....... ###########.    \",
  700. \"          . ###########.    \",
  701. \"          . ###########.    \",
  702. \"          ..............    \",
  703. \"                            \",
  704. \"                            \",
  705. \"                            \",
  706. \"                            \",
  707. \"                            \",
  708. \"                            \"};")
  709.     (toolbar-make-button-list
  710.      (expand-file-name "eos-build.xbm" eos::toolbar-icon-directory)))
  711.   "A Build icon pair.")
  712.  
  713. (defvar eos::toolbar-dismiss-icon
  714.   (if (featurep 'xpm)
  715.       (toolbar-make-button-list
  716.        "/* XPM */
  717. static char * file[] = {
  718. \"28 28 5 1\",
  719. \"     c #C8C8C8C8C8C8 s backgroundToolBarColor\",
  720. \"X    c #4B4B4B4B4B4B\",
  721. \".     c #FFFFFFFFFFFF\",
  722. \"o    c #AFAFAFAFAFAF\",
  723. \"O    c #FFFF00000000\",
  724. \"                            \",
  725. \"                            \",
  726. \"                            \",
  727. \"                            \",
  728. \"                            \",
  729. \"                            \",
  730. \"       X            X       \",
  731. \"       XX          XX       \",
  732. \"        XX        XX        \",
  733. \"         XX      XX         \",
  734. \"          XX    XX          \",
  735. \"           XX  XX           \",
  736. \"            XXXX            \",
  737. \"             XX             \",
  738. \"            XXXX            \",
  739. \"           XX  XX           \",
  740. \"          XX    XX          \",
  741. \"         XX      XX         \",
  742. \"        XX        XX        \",
  743. \"       XX          XX       \",
  744. \"       X            X       \",
  745. \"                            \",
  746. \"                            \",
  747. \"                            \",
  748. \"                            \",
  749. \"                            \",
  750. \"                            \",
  751. \"                            \"};")
  752.     (toolbar-make-button-list
  753.      (expand-file-name "eos-dismiss.xbm" eos::toolbar-icon-directory)))
  754.   "A Dismiss icon pair.")
  755.  
  756. (defvar eos::toolbar-intro-icon
  757.   (if (featurep 'xpm)
  758.       (toolbar-make-button-list
  759.        "/* XPM */
  760. static char * info[] = {
  761. \"28 28 2 1\",
  762. \"X    c Gray75 s backgroundToolBarColor\",
  763. \"o    c #000077770000\",
  764. \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
  765. \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
  766. \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
  767. \"XXXXXXXXXXXXXoXXXXXXXXXXXXXX\",
  768. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  769. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  770. \"XXXXXXXXXXoooooooXXXXXXXXXXX\",
  771. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  772. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  773. \"XXXXXXXXXXXXXoXXXXXXXXXXXXXX\",
  774. \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
  775. \"XXXXXXXXXXooooooXXXXXXXXXXXX\",
  776. \"XXXXXXXXXoooooooXXXXXXXXXXXX\",
  777. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  778. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  779. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  780. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  781. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  782. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  783. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  784. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  785. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  786. \"XXXXXXXXXXoooooooXXXXXXXXXXX\",
  787. \"XXXXXXXXXoooooooooXXXXXXXXXX\",
  788. \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
  789. \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
  790. \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
  791. \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\"};")
  792.     (toolbar-make-button-list
  793.      (expand-file-name "eos-intro.xbm" eos::toolbar-icon-directory)))
  794.   "An intro icon pair.")
  795.  
  796. (defvar eos::toolbar-introD-icon
  797.   (if (featurep 'xpm)
  798.       (toolbar-make-button-list
  799.        "/* XPM */
  800. static char * info[] = {
  801. \"28 28 2 1\",
  802. \"X    c Gray75 s backgroundToolBarColor\",
  803. \"o    c #000077770000\",
  804. \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
  805. \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
  806. \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
  807. \"XXXXXXXXXXXXXoXXXXXXXXXXXXXX\",
  808. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  809. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  810. \"XXXXXXXXXXoooooooXXXXXXXXXXX\",
  811. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  812. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  813. \"XXXXXXXXXXXXXoXXXXXXXXXXXXXX\",
  814. \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
  815. \"XXXXXXXXXXooooooXXXXXXXXXXXX\",
  816. \"XXXXXXXXXoooooooXXXXXXXXXXXX\",
  817. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  818. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  819. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  820. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  821. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  822. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  823. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  824. \"XXoooXXXXXXoooooXXXXXXXXXXXX\",
  825. \"XXoXXoXXXXXoooooXXXXXXXXXXXX\",
  826. \"XXoXXoXXXXoooooooXXXXXXXXXXX\",
  827. \"XXoXXoXXXoooooooooXXXXXXXXXX\",
  828. \"XXoXXoXXXXXXXXXXXXXXXXXXXXXX\",
  829. \"XXoXXoXXXXXXXXXXXXXXXXXXXXXX\",
  830. \"XXoooXXXXXXXXXXXXXXXXXXXXXXX\",
  831. \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\"};")
  832.     (toolbar-make-button-list
  833.      (expand-file-name "eos-introD.xbm" eos::toolbar-icon-directory)))
  834.   "An intro icon pair.")
  835.  
  836. (defvar eos::toolbar-introDB-icon
  837.   (if (featurep 'xpm)
  838.       (toolbar-make-button-list
  839.        "/* XPM */
  840. static char * info[] = {
  841. \"28 28 2 1\",
  842. \"X    c Gray75 s backgroundToolBarColor\",
  843. \"o    c #000077770000\",
  844. \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
  845. \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
  846. \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
  847. \"XXXXXXXXXXXXXoXXXXXXXXXXXXXX\",
  848. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  849. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  850. \"XXXXXXXXXXoooooooXXXXXXXXXXX\",
  851. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  852. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  853. \"XXXXXXXXXXXXXoXXXXXXXXXXXXXX\",
  854. \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
  855. \"XXXXXXXXXXooooooXXXXXXXXXXXX\",
  856. \"XXXXXXXXXoooooooXXXXXXXXXXXX\",
  857. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  858. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  859. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  860. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  861. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  862. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  863. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  864. \"XXoooXXXXXXoooooXXXXXXoooXXX\",
  865. \"XXoXXoXXXXXoooooXXXXXXoXXoXX\",
  866. \"XXoXXoXXXXoooooooXXXXXoXXoXX\",
  867. \"XXoXXoXXXoooooooooXXXXoooXXX\",
  868. \"XXoXXoXXXXXXXXXXXXXXXXoXXoXX\",
  869. \"XXoXXoXXXXXXXXXXXXXXXXoXXoXX\",
  870. \"XXoooXXXXXXXXXXXXXXXXXoooXXX\",
  871. \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\"};")
  872.     (toolbar-make-button-list
  873.      (expand-file-name "eos-introDB.xbm" eos::toolbar-icon-directory)))
  874.   "An intro icon pair.")
  875.  
  876. (defvar eos::toolbar-introB-icon
  877.   (if (featurep 'xpm)
  878.       (toolbar-make-button-list
  879.        "/* XPM */
  880. static char * info[] = {
  881. \"28 28 2 1\",
  882. \"X    c Gray75 s backgroundToolBarColor\",
  883. \"o    c #000077770000\",
  884. \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
  885. \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
  886. \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
  887. \"XXXXXXXXXXXXXoXXXXXXXXXXXXXX\",
  888. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  889. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  890. \"XXXXXXXXXXoooooooXXXXXXXXXXX\",
  891. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  892. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  893. \"XXXXXXXXXXXXXoXXXXXXXXXXXXXX\",
  894. \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
  895. \"XXXXXXXXXXooooooXXXXXXXXXXXX\",
  896. \"XXXXXXXXXoooooooXXXXXXXXXXXX\",
  897. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  898. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  899. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  900. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  901. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  902. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  903. \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
  904. \"XXXXXXXXXXXoooooXXXXXXoooXXX\",
  905. \"XXXXXXXXXXXoooooXXXXXXoXXoXX\",
  906. \"XXXXXXXXXXoooooooXXXXXoXXoXX\",
  907. \"XXXXXXXXXoooooooooXXXXoooXXX\",
  908. \"XXXXXXXXXXXXXXXXXXXXXXoXXoXX\",
  909. \"XXXXXXXXXXXXXXXXXXXXXXoXXoXX\",
  910. \"XXXXXXXXXXXXXXXXXXXXXXoooXXX\",
  911. \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\"};")
  912.     (toolbar-make-button-list
  913.      (expand-file-name "eos-introB.xbm" eos::toolbar-icon-directory)))
  914.   "An intro icon pair.")
  915.  
  916.  
  917. (defvar eos::debugger-toolbar
  918.       '(
  919.     [eos::toolbar-introD-icon
  920.      eos::sw-intro
  921.      t
  922.      "Show Introduction to Eos"]
  923.     [eos::toolbar-stop-at-icon
  924.      eos::stop-at
  925.      eos::current-debugger-clique-id
  926.      "stop at: Stop at selected position"]
  927.     [eos::toolbar-stop-in-icon
  928.      eos::stop-in
  929.      eos::current-debugger-clique-id
  930.      "stop in: Stop in function whose name is selected"]
  931.     [eos::toolbar-clear-at-icon
  932.      eos::clear-at
  933.      eos::current-debugger-clique-id
  934.      "clear at: Clear at selected position"]
  935.     [eos::toolbar-run-icon
  936.      eos::run
  937.      eos::current-debugger-clique-id
  938.      "run: Run current program"]
  939.     [eos::toolbar-evaluate-icon
  940.      eos::print
  941.      eos::current-debugger-clique-id
  942.      "print: Evaluate selected expression; shows in separate XEmacs frame"]
  943.     [eos::toolbar-evaluate-star-icon
  944.      eos::print*
  945.      eos::current-debugger-clique-id
  946.      "print *: Evaluate selected expression as a pointer; shows in separate XEmacs frame"]
  947.     [eos::toolbar-up-icon
  948.      eos::up
  949.      eos::current-debugger-clique-id
  950.      "up: move in stack towards \"cooler\" (less recently visited) frames"]
  951.     [eos::toolbar-down-icon
  952.      eos::down
  953.      eos::current-debugger-clique-id
  954.      "down: move in stack towards \"warmer\" (more recently visited) frames)"]
  955.     [eos::toolbar-cont-icon
  956.      eos::cont
  957.      eos::current-debugger-clique-id
  958.      "cont: Continue current program"]
  959.     [eos::toolbar-step-over-icon
  960.      eos::next
  961.      eos::current-debugger-clique-id
  962.      "next: Step over subprogram calls"]
  963.     [eos::toolbar-step-into-icon
  964.      eos::step
  965.      eos::current-debugger-clique-id
  966.      "step: Step into subprogram calls)"]
  967.     [eos::toolbar-step-up-icon
  968.      eos::step-up
  969.      eos::current-debugger-clique-id
  970.      "step up: Step up from subprogram calls)"]
  971.     [eos::toolbar-build-icon
  972.      eos::build
  973.      eos::current-debugger-clique-id
  974.      "make: Build target"]
  975.     [eos::toolbar-fix-icon
  976.      eos::fix
  977.      eos::current-debugger-clique-id
  978.      "fix: Fix file"]
  979.     [eos::toolbar-type-icon
  980.      eos::type
  981.      (or (and (eq eos::dbx-or-debugger 'debugger)
  982.           eos::current-debugger-clique-id)
  983.          (and (eq eos::dbx-or-debugger 'dbx)
  984.           (eos::dbx-process)
  985.           (eq (process-status (eos::dbx-process)) 'run)))
  986.      "Type a Dbx command"]
  987.     ))
  988.  
  989. (defvar eos::debugger-sbrowser-toolbar
  990.       '(
  991.     [eos::toolbar-introDB-icon
  992.      eos::sw-intro
  993.      t
  994.      "Show Introduction to Eos"]
  995.     [eos::toolbar-stop-at-icon
  996.      eos::stop-at
  997.      eos::current-debugger-clique-id
  998.      "stop at: Stop at selected position"]
  999.     [eos::toolbar-stop-in-icon
  1000.      eos::stop-in
  1001.      eos::current-debugger-clique-id
  1002.      "stop in: Stop in function whose name is selected"]
  1003.     [eos::toolbar-clear-at-icon
  1004.      eos::clear-at
  1005.      eos::current-debugger-clique-id
  1006.      "clear at: Clear at selected position"]
  1007.     [eos::toolbar-run-icon
  1008.      eos::run
  1009.      eos::current-debugger-clique-id
  1010.      "run: Run current program"]
  1011.     [eos::toolbar-evaluate-icon
  1012.      eos::print
  1013.      eos::current-debugger-clique-id
  1014.      "print: Evaluate selected expression; shows in separate XEmacs frame"]
  1015.     [eos::toolbar-evaluate-star-icon
  1016.      eos::print*
  1017.      eos::current-debugger-clique-id
  1018.      "print *: Evaluate selected expression as a pointer; shows in separate XEmacs frame"]
  1019.     [eos::toolbar-up-icon
  1020.      eos::up
  1021.      eos::current-debugger-clique-id
  1022.      "up: move in stack towards \"cooler\" (less recently visited) frames"]
  1023.     [eos::toolbar-down-icon
  1024.      eos::down
  1025.      eos::current-debugger-clique-id
  1026.      "down: move in stack towards \"warmer\" (more recently visited) frames)"]
  1027.     [eos::toolbar-cont-icon
  1028.      eos::cont
  1029.      eos::current-debugger-clique-id
  1030.      "cont: Continue current program"]
  1031.     [eos::toolbar-step-over-icon
  1032.      eos::next
  1033.      eos::current-debugger-clique-id
  1034.      "next: Step over subprogram calls"]
  1035.     [eos::toolbar-step-into-icon
  1036.      eos::step
  1037.      eos::current-debugger-clique-id
  1038.      "step: Step into subprogram calls)"]
  1039.     [eos::toolbar-step-up-icon
  1040.      eos::step-up
  1041.      eos::current-debugger-clique-id
  1042.      "step up: Step up from subprogram calls)"]
  1043.     [eos::toolbar-build-icon
  1044.      eos::build
  1045.      eos::current-debugger-clique-id
  1046.      "make: Build target"]
  1047.     [eos::toolbar-fix-icon
  1048.      eos::fix
  1049.      eos::current-debugger-clique-id
  1050.      "fix: Fix file"]
  1051.     [eos::toolbar-type-icon
  1052.      eos::type
  1053.      (or (and (eq eos::dbx-or-debugger 'debugger)
  1054.           eos::current-debugger-clique-id)
  1055.          (and (eq eos::dbx-or-debugger 'dbx)
  1056.           (eos::dbx-process)
  1057.           (eq (process-status (eos::dbx-process)) 'run)))
  1058.      "Type a Dbx command"]
  1059.     ))
  1060.  
  1061. (defvar eos::sbrowser-toolbar
  1062.       '([eos::toolbar-introB-icon
  1063.      eos::sw-intro
  1064.      t
  1065.      "Show Introduction to Eos"]
  1066.     ))
  1067.  
  1068. (defvar eos::print-toolbar
  1069.       '(
  1070.     [eos::toolbar-intro-icon
  1071.      eos::sw-intro
  1072.      t
  1073.      "Show Introduction to Eos"]
  1074.     [eos::toolbar-evaluate-icon
  1075.      eos::print
  1076.      eos::current-debugger-clique-id
  1077.      "print: Evaluate selected expression; shows in separate XEmacs frame"]
  1078.     [eos::toolbar-evaluate-star-icon
  1079.      eos::print*
  1080.      eos::current-debugger-clique-id
  1081.      "print *: Evaluate selected expression as a pointer; shows in separate XEmacs frame"]
  1082.     [eos::toolbar-cont-icon
  1083.      eos::cont-and-dismiss
  1084.      eos::current-debugger-clique-id
  1085.      "cont & dismiss: Continue current program and dismiss this frame"]
  1086.     [eos::toolbar-step-over-icon
  1087.      eos::next-and-dismiss
  1088.      eos::current-debugger-clique-id
  1089.      "next  & dismiss: Step over subprogram calls and dismiss this frame"]
  1090.     [eos::toolbar-step-into-icon
  1091.      eos::step-and-dismiss
  1092.      eos::current-debugger-clique-id
  1093.      "step & dismiss: Step into subprogram calls and dismiss this frame)"]
  1094.     [eos::toolbar-dismiss-icon
  1095.      eos::dismiss-print-frame
  1096.      t
  1097.      "dismiss (make invisible) this print frame"]
  1098.     ))
  1099.  
  1100. (defun eos::toolbar-position ()
  1101.   (let ((pos (default-toolbar-position)))
  1102.     (cond ((eq pos 'top) top-toolbar)
  1103.       ((eq pos 'bottom) bottom-toolbar)
  1104.       ((eq pos 'left) left-toolbar)
  1105.       ((eq pos 'right) right-toolbar)
  1106.       (t top-toolbar))))
  1107.  
  1108. (provide 'eos-toolbar)
  1109.  
  1110. ;;; sun-eos-toolbar.el ends here
  1111.